#! /bin/sh

# Copyright (c) Krešimir Šojat, 2009. All rights reserved. The use
# and distribution terms for this software are covered by the Eclipse
# Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
# which can be found in the file epl-v10.html at the root of this
# distribution. By using this software in any fashion, you are
# agreeing to be bound by the terms of this license. You must not
# remove this notice, or any other, from this software.

if [ ! -e $1 ]; then
    base='.'
else
    base=$1
fi
find $base -regex '^.*\.clj$' -print0 | xargs -0 /bin/egrep -v "^([[:space:]]*;|$)" | wc -l
